home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / zpont311.lha / zpoint-3.11 / Rexx / HandleBinary.zprx < prev    next >
Text File  |  1995-03-09  |  1KB  |  39 lines
  1. /* $VER: HandleBinary 0.31 (1.10.94)  */
  2.  
  3. PARSE ARG BinFile OutFile .
  4.  
  5. /* Eigene Wünsche hier verwirklichen: */
  6. ViewerCmd='Vt >>'OutFile BinFile
  7. ListCmd='LhA v' BinFile '>>'OutFile
  8. EntpackCmd='LhA -m -n x >>'OutFile BinFile
  9. AbbruchCmd='Echo "--- Abgebrochen ---" >>'OutFile
  10.  
  11.  
  12. OPTIONS RESULTS
  13. dtlib='datatypes.library'
  14. IF ~MyAddLib('rexxreqtools.library') THEN EXIT 10
  15. IF ~MyAddLib(dtlib) THEN filetype=''
  16. ELSE filetype='0A'X || 'Filetyp nach 'dtlib' : 'ExamineDT(BinFile,,VAR)
  17.  
  18. sel=rtezrequest('Diese Nachricht ist binär.' || filetype,,
  19.     'L_isten|_Lesen|An_sehen|_Entpacken|_Abbrechen')
  20.  
  21. SHELL COMMAND
  22. SELECT
  23.    WHEN sel=1 THEN ListCmd
  24.    WHEN sel=2 THEN 'Copy' BinFile OutFile
  25.    WHEN sel=3 THEN ViewerCmd
  26.    WHEN sel=4 THEN DO
  27.       Tags='rtfi_flags=freqf_nofiles|freqf_save rt_pubscrname=ZPoint'
  28.       OutPath=rtfilerequest('RAM:',,'Auspacken nach:',,Tags)
  29.       IF rtresult THEN EntpackCmd '"'OutPath'"' ; ELSE AbbruchCmd
  30.    END
  31.    OTHERWISE AbbruchCmd
  32. END
  33. EXIT
  34.  
  35. MyAddLib: PROCEDURE
  36.    IF SHOW('L',ARG(1)) THEN RETURN 1
  37.    IF EXISTS('LIBS:'ARG(1)) THEN RETURN ADDLIB(ARG(1),0,-30)
  38.    ELSE RETURN 0
  39.